home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Communications
/
Network
/
MacHTTP 1.2.4
/
map.script
< prev
next >
Wrap
Text File
|
1994-02-23
|
848b
|
19 lines
set crlf to ASCII character 13 & ASCII character 10
set http_10_header to "HTTP/1.0 200 OK" & crlf & "Server: MacHTTP" & crlf & ¬
"MIME-Version: 1.0" & crlf & "Content-type: text/html" & crlf & crlf
if http_search_args = "" then
return http_10_header & "<title>Map Test</title><isindex><A HREF=\"map.script\">" & ¬
"<IMG SRC=\"MacHTTP.gif\" ismap></A><P>Click on the tiny WWW document in the icon...<P>"
else
set comma to offset of "," in http_search_args
set theLast to count http_search_args
set x to (text 1 thru (comma - 1) of http_search_args) + 0
set y to (text (comma + 1) thru theLast of http_search_args) + 0
end if
if x < 16 and y < 16 then
return http_10_header & "<title>Got Me</title> <h1>Got Me!</h1> x=" & x & " y=" & y
else
return http_10_header & "<title>Missed Me</title> <h1>Missed Me!</h1> x=" & x & " y=" & y
end if